home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / HENSA / MATHS / PLPLOT / PLPLOT.ZIP / examples / f77 / x10f.f < prev    next >
Encoding:
Text File  |  1994-05-27  |  824 b   |  30 lines
  1. ! $Id: x10f.f,v 1.2 1994/05/26 19:34:24 mjl Exp $
  2. ! $Log: x10f.f,v $
  3. ! Revision 1.2  1994/05/26  19:34:24  mjl
  4. ! Inserted missing CVS Id and Log fields for all Fortran demos.  Comment
  5. ! character changed to "!" everywhere, to work well with font-lock in Lucid
  6. ! emacs (requires a small change to fortran-mode.el).
  7. !
  8. !
  9.       program example10
  10. !     =================
  11. !
  12. ! Demonstration program for PLPLOT illustrating absolute positioning
  13. !  of graphs on a page
  14.  
  15.       call plinit()
  16.  
  17.       call pladv(0)
  18.       call plvpor(0.0,1.0,0.0,1.0)
  19.       call plwind(0.0,1.0,0.0,1.0)
  20.       call plbox('bc',0.0,0,'bc',0.0,0)
  21.  
  22.       call plsvpa(50.0,150.0,100.0,150.0)
  23.       call plwind(0.0,1.0,0.0,1.0)
  24.       call plbox('bc',0.0,0,'bc',0.0,0)
  25.       call plptex(0.5,0.5,1.0,0.0,0.5,'BOX at (50,150,100,150)')
  26.  
  27.       call plend
  28.  
  29.       end
  30.